﻿Imports Dainfo.ControleEstoque.Model
Imports Dainfo.ControleEstoque.Dados

Partial Public Class CadastroFornecedor
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    End Sub

    Protected Sub btnSalvar_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnSalvar.Click
        Dim fornecedor As New Fornecedor()
        fornecedor.RazaoSocial = txtNome_Razao.Text
        fornecedor.CPF_CNPJ = txtCPF_CNPJ.Text
        fornecedor.Endereco = txtEndereco.Text
        fornecedor.Bairro = txtBairro.Text
        fornecedor.Cidade = txtCidade.Text
        fornecedor.Estado = ddlEstado.SelectedValue
        fornecedor.CEP = txtCEP.Text
        fornecedor.Telefone1 = txtTel1.Text
        fornecedor.Telefone2 = txtTel2.Text
        fornecedor.Email = txtEmail.Text
        fornecedor.Observacoes = txtObs.Text
        fornecedor.Messenger = txtMsn.Text
        Dim dadosFornecedor As New DadosFornecedor()
        dadosFornecedor.Insert(fornecedor)

        Response.Redirect("PesquisaFornecedor.aspx")
    End Sub
End Class